home *** CD-ROM | disk | FTP | other *** search
/ Dr. Windows 3 / dr win3.zip / dr win3 / VISUALBA / TLSTVBX2.ZIP / FORM1.FRM < prev    next >
Text File  |  1993-11-06  |  4KB  |  129 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    BorderStyle     =   3  'Fixed Double
  4.    Caption         =   "Form1"
  5.    ClientHeight    =   3960
  6.    ClientLeft      =   1125
  7.    ClientTop       =   2355
  8.    ClientWidth     =   7800
  9.    Height          =   4365
  10.    Left            =   1065
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   264
  13.    ScaleMode       =   3  'Pixel
  14.    ScaleWidth      =   520
  15.    Top             =   2010
  16.    Width           =   7920
  17.    Begin CommandButton cmd 
  18.       Caption         =   "GO"
  19.       Height          =   345
  20.       Index           =   1
  21.       Left            =   6600
  22.       TabIndex        =   4
  23.       Top             =   990
  24.       Width           =   1020
  25.    End
  26.    Begin PictureBox pic 
  27.       AutoRedraw      =   -1  'True
  28.       AutoSize        =   -1  'True
  29.       BorderStyle     =   0  'None
  30.       Height          =   195
  31.       Left            =   285
  32.       Picture         =   FORM1.FRX:0000
  33.       ScaleHeight     =   13
  34.       ScaleMode       =   3  'Pixel
  35.       ScaleWidth      =   18
  36.       TabIndex        =   3
  37.       Top             =   225
  38.       Width           =   270
  39.    End
  40.    Begin CommandButton cmd 
  41.       Caption         =   "Quit"
  42.       Height          =   345
  43.       Index           =   0
  44.       Left            =   6600
  45.       TabIndex        =   1
  46.       Top             =   570
  47.       Width           =   1020
  48.    End
  49.    Begin TListBox lst 
  50.       BackColor       =   &H00C0C0C0&
  51.       FontBold        =   0   'False
  52.       FontItalic      =   0   'False
  53.       FontName        =   "MS Sans Serif"
  54.       FontSize        =   9.75
  55.       FontStrikethru  =   0   'False
  56.       FontUnderline   =   0   'False
  57.       ForeColor       =   &H00000000&
  58.       Height          =   3120
  59.       Left            =   240
  60.       MultiSelect     =   2  'Extended
  61.       TabIndex        =   0
  62.       Top             =   585
  63.       TransparentBitmap=   -1  'True
  64.       Width           =   6120
  65.    End
  66.    Begin Label lbl 
  67.       AutoSize        =   -1  'True
  68.       BackStyle       =   0  'Transparent
  69.       Caption         =   "Column 0"
  70.       FontBold        =   -1  'True
  71.       FontItalic      =   0   'False
  72.       FontName        =   "MS Sans Serif"
  73.       FontSize        =   9.75
  74.       FontStrikethru  =   0   'False
  75.       FontUnderline   =   0   'False
  76.       Height          =   240
  77.       Index           =   0
  78.       Left            =   630
  79.       TabIndex        =   2
  80.       Top             =   180
  81.       Width           =   960
  82.    End
  83. End
  84.  
  85.    DefInt A-Z
  86.  
  87. Sub cmd_Click (index As Integer)
  88.    
  89.    If index = 0 Then
  90.       Unload Me
  91.       Exit Sub
  92.       End If
  93.  
  94.    Dim rc As rect, lDum As Long
  95.  
  96.    lst.ItemForeColor(4) = QBColor(4)
  97.    'lst.Columns = 2
  98.    
  99. End Sub
  100.  
  101. Sub Form_Load ()
  102.  
  103.    ' You can have up to 10 tabstops, that is from 0 to 9
  104.    lst.TabStops(0) = 80
  105.    
  106.    ' GTList offsets the bitmap 3 pixels from the left
  107.    ' and offsets the text 2 pixels from the right of
  108.    ' the bitmap.  Hence, we add 5 to set the label
  109.    lbl(0).Left = lst.TabStops(0) + lst.Left + pic.Width + 5
  110.  
  111.    For x = 0 To screen.FontCount - 1
  112.       lst.AddItem "Item " & x & Chr(9) & screen.Fonts(x)
  113.       Next
  114.    
  115.    pic.Picture = LoadPicture("bitmap2.bmp")
  116.    lst.ItemImage(0) = pic.Picture
  117.    lst.ItemForeColor(2) = QBColor(1)
  118.    For x = 1 To screen.FontCount - 1
  119.       lst.ItemImage(x) = pic.Picture
  120.       Next
  121.    
  122.    lst.ListIndex = 0
  123.  
  124.    'tlist1.AddItem "George Rallos"
  125.    'tlist1.AddItem "Rallos Torralba"
  126.    'tlist1.ListIndex = 0
  127. End Sub
  128.  
  129.